home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2003-12_2003_CSW_Side_A.d64 / jubilaeum 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  810b  |  23 lines
  1. 0 rem
  2. 1 lw=peek(186):poke53280,0
  3. 2 ifz=0thenz=1:goto6
  4. 3 ifz=1thenz=2:sys49154
  5. 4 ifz=2thenz=3:goto40
  6. 6 fora=49154to49317:readi:pokea,i:next:gosub10
  7. 7 load"jubi*",lw,1:end
  8. 10 print"hallo"
  9. 39 return
  10. 40 goto 40
  11. 1300 :
  12. 1301 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  13. 1302 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  14. 1303 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  15. 1304 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  16. 1305 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  17. 1306 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  18. 1307 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  19. 1308 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  20. 1309 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  21. 1310 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  22. 1311 data254,132,253,96
  23.